home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / ttt5.arc / DEMO4.EXE / lha / MENUDEM1.PAS < prev    next >
Pascal/Delphi Source File  |  1989-01-31  |  1KB  |  42 lines
  1. Program MenuTTT5_Demo_1;
  2.  
  3. Uses CRT, FastTTT5, DOS, WinTTT5, KeyTTT5, MenuTTT5;
  4.  
  5. var
  6.   M : menu_record;
  7.   Choice, Retcode : integer;
  8.   Ch : char;
  9.  
  10. begin
  11.     Clrscr;
  12.     WriteCenter(24,yellow,black,'TechnoJock''s Turbo Toolkit');
  13.     Choice := 1;
  14.     Menu_Set(M);
  15.     With M do
  16.     begin
  17.         Heading1 := 'Missile Sites';
  18.         Heading2 := 'Main Menu';
  19.         Topic[1]  := '  Help';
  20.         Topic[2]  := '  Load Database';
  21.         Topic[3]  := '  Re-index Database ';
  22.         Topic[4]  := '  Input new Data';
  23.         Topic[5]  := '  Save Database';
  24.         Topic[6]  := '  Print Reports';
  25.         Topic[7]  := '  Quit';
  26.         TotalPicks := 7;
  27.     end;
  28.     DisplayMenu(M,true,Choice,Retcode);
  29.     GotoXY(1,20);
  30.  
  31.     If Retcode = 0 then
  32.        Writeln('You chose option ',Choice)
  33.     else
  34.        Writeln('You escaped!');
  35.     DelayKey(3000);
  36.     Reset_StartUp_Mode;
  37.     Clrscr;
  38.     WriteAT(1,1,white,black,'Run DemoTTT.exe for the main demo program');
  39.     WriteAT(1,2,white,black,'TechnoJock''s Turbo Toolkit v5.0');
  40.     GotoXY(1,5);
  41. end.
  42.